Shareware Grab Bag/Shareware Grab Bag.iso/003/db3ar.arc/STMT.PRG

Text File | 1985-10-15 | 2.0 KB | 101 lines

******************************** (B:NEWSTMT.PRG)
CNTR=0
CLEAR
@ 11,1 SAY 'Bail out?  '
?
?
STORE ' ' TO OPTION
WAIT ' Y or N  'TO OPTION
IF OPTION='Y'
RETURN
ENDIF
STORE 2 TO CNTR
SET HEADING OFF
SET TALK OFF
USE B:CUST
DO WHILE .NOT. BOF()
CLEAR
USE B:CUST
GOTO CNTR
STORE ACCT TO X
USE B:INV
SET EXACT ON
COUNT TO MCT FOR ACCT=X .AND. .NOT. PAID
IF MCT=0
USE B:CUST
GOTO CNTR
SKIP+1
STORE RECNO() TO CNTR
STORE ACCT TO X
LOOP
ENDIF
USE B:CUST
GOTO CNTR
STORE 0 TO A,B,C,D
STORE LEN(MTITLE) TO A
STORE (80-A)/2 TO A
STORE LEN(MADD1) TO B
STORE (80-B)/2 TO B
STORE LEN(MADD2) TO C
STORE (80-C)/2 TO C
STORE LEN(MPHONE) TO D
STORE (80-D)/2 TO D
SET DEVICE TO PRINT
SET PRINT ON
@ 1,35 SAY 'STATEMENT'
@ 2,A SAY MTITLE
@ 3,B SAY MADD1
@ 4,C SAY MADD2
@ 5,D SAY MPHONE
@ 6,36 SAY DATE()
@ 7,0 SAY ì
'=================================================================ì
==============='
@ 8,0 SAY NAME
@ 8,51 SAY 'Amt last payment:'
@ 8,71 SAY LSTPAY
@ 9,0 SAY ADDRESS
@ 9,51 SAY 'Date last payment:'
@ 9,72 SAY NEWDATE
@ 10,0 SAY TRIM(CITY) +'  '+ STATE +'  '+ ZIP
@ 10,51 SAY 'Check number:'
@ 10,65 SAY CHKNO
@ 11,0 SAY PHONE
@ 11,51 SAY 'Unapplied Credits:'
@ 11,68 SAY UCREDIT
@ 12,0 SAY 'Account number:'
@ 12,17 SAY ACCT
@ 12,51 SAY 'Terms:'
@ 12,59 SAY TERMS
@ 13,0 SAY ì
'=================================================================ì
==============='
@ 14,0 SAY 'Balance:'
@ 14,7 SAY STR(NET,8,2)
IF OLD_30 < 0.01
@ 14,20 SAY 'Thank you for your prompt payment.'
ENDIF
IF OLD_30 > 0.00
@ 14,17 SAY '>>>>>>>> Amount 30 days past due date:'
@ 14,54 SAY STR(OLD_30,8,2)
ENDIF
IF OLD_45 > 0.00
@ 14,65 SAY 'Over 45:'
@ 14,72 SAY STR(OLD_45,8,2)
ENDIF
IF OLD_60 > 0.00
@ 15,0 SAY '>>>>>>>>>>>>>>>>>>>>>>>>> Amount 60 days past due ì
date:'
@ 15,54 SAY STR(OLD_60,8,2)
ENDIF
? ì
'=================================================================ì
==============='
USE B:INV
REPO FORM B:STMT FOR ACCT=X .AND. .NOT. PAID PLAIN NOEJECT TO ì
PRINT
STORE CNTR +1 TO CNTR
ENDDO
RETURN